home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / MMenu.dxr / 00160.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  472 b   |  23 lines
  1. on mouseUp
  2.   cursorOff()
  3.   set x to random(50)
  4.   if x <= 2 then
  5.     set n to random(3)
  6.     case n of
  7.       1:
  8.         if soundBusy(2) = 0 then
  9.           sound playFile "RndWavs/NoQuit/Oth007.wav"
  10.         end if
  11.       2:
  12.         if soundBusy(2) = 0 then
  13.           sound playFile "RndWavs/NoQuit/Oth012.wav"
  14.         end if
  15.       3:
  16.         if soundBusy(2) = 0 then
  17.           sound playFile "RndWavs/NoQuit/Oth013.wav"
  18.         end if
  19.     end case
  20.   end if
  21.   go("Quotes")
  22. end
  23.